Top 10k strings from Grasp (1983)(Camel Micros).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
2 n$(i2)=a$(1
2 m(q(i),j3)
2 atad=atad-1
2 atad=atad+1
2 a$=a$+" ":
2 ,cg)=i1*i2:
2 ,cg))/(a(4
2 ,cg))/(a(2
2 )+(i6-i2)*(i6
2 )+(i5-i1)*(i5
1 z$="12304gca0dxyfo0spiblmnk"
1 yl=(m(q(k),j4)-t4)/s2+yy
1 xl=ix+i6-2
1 xl=(m(q(k),j3)-t2)/s1+xx
1 x=m(i,i1):
1 t4d=t4d+(m(k,i1)-t2d)*(m(k,i1)-t2d):
1 t4d=t1d-t3d*t2d
1 t3d=t3d/t4d:
1 t3d=t3d+(m(k,i)-t1d)*(m(k,i1)-t2d)
1 t2d=t2d/nu:
1 t2d=t2d+m(k,i1):
1 t1d=t1d/nu:
1 t1d=t1d+m(k,i):
1 s4=m(q(j1),j4)-t4
1 s3=m(q(j1),j3)-t2:
1 s2=(t3-t4)/ly
1 s1=(t2-t1)/ly:
1 s1=(t1-t2)/lx
1 q(k)=q(k-1
1 p
1 n$(k);"(old value ";m(i,k);")"
1 n$(k);" ";:
1 mcgrasp
1 m2=m(q(k),zx):
1 m2<m(q(k-1
1 m1=m(q(i),zx):
1 m(k,l)=m(i2,l):
1 m(k,i1)=x:
1 m(k,i)=t4d+t3d*m(k,i1):
1 j1;" "(1
1 i9=i9+((j1=11
1 i9=i4-i2+1
1 i9=(i4-i3)/i5:
1 i8=i8+((j1=9
1 i8=a$="o":
1 i8=(m(i,i2)-a(3
1 i8;" "(1
1 i7=i7+m(i,i6)/i5:
1 i7=(m(i,i1)-a(1
1 i5=i6*b(24
1 i5=i5+m(i,i6):
1 i3=i3*(i3<5
1 i3,i4;a$;:
1 i3,i2;a$;:
1 i2=i2*(i2<4
1 i1=i3-(b(11
1 i1,i4;a$;:
1 i1,i2;a$;:
1 grasp .a
1 cmrk=cmrk=0
1 c$(i),p(i,1
1 b(z2,cg)=i1:
1 atad=atad-32
1 atad=atad+32
1 atad=22528
1 a7=(yl-a3)/ig:
1 a6=a8+b(11
1 a2=(xl-a1)/ig
1 a$=a$+"z":
1 a$=a$+" "
1 For Tony Barnett
1 Camel Micros
1 ;m(i3,i6):
1 ;i1+i3,i2+i3,i3
1 ;"X= ";(i8-b(1
1 ;"START CASSETTE":
1 ;"Graph No";:
1 ;"FUNCTION GENERATOR":
1 ;"Doing item ";k;:
1 ;"Doing item ";i;:
1 ;"3. SAVE/LOAD"
1 ;"2. DRAW GRAPH"
1 ;"1. INPUT/MOD DATA":
1 ;"(a) Axis details";
1 ;" ";:
1 ;" ";:
1 -i;"PSARG"(i+1
1 -i2)*(i6>255
1 -i2)*(i6>175
1 -i1)*(i5>255
1 -i1)*(i5>175
1 -cmrk);" ";
1 ,cg)=i1*i2+(1
1 ,cg)=(i4-i2)*8
1 ,cg)=(i3-i1)*8
1 ,cg),"Y= ";(i9-b(2
1 ,cg)*(b(27
1 ,cg)*(b(26
1 ,cg)*(b(25
1 ,cg))/b(11
1 ,cg))+" ":
1 ,cg))*i6+i5
1 ,cg))*i4+i3
1 ,"x)xname ",0
1 ,"s)Srt ",13
1 ,"p)Paper ",0
1 ,"n)Nind ",0
1 ,"m)Fil ",13
1 ,"l)Ltyp ",23
1 ,"k) Shpe ",23
1 ,"i)Ink ",13
1 ,"g)Grph No ",0
1 ,"f)Frmt ",23
1 ,"d)Size/Pos ",0
1 ,"b)Brdr ",23
1 ,"Ytks ",0
1 ,"Ypos ",0
1 ,"Ylbl ",16
1 ,"YMIN ",0
1 ,"YMAX ",16
1 ,"Xtks ",0
1 ,"Xlbl ",16
1 ,"XMAX ",16
1 ,"Nhst ",16
1 +i,i;"GRASP"(i+1
1 +i,cg)=(i5-i3)*(i1+i2)+i3
1 *(a$="fz"):
1 (s4/s2)+yy
1 (s3/s1)+xx:
1 (s2p-s3p)*i2:
1 (ix-s2)*i2:
1 (a(k,cg))+" ":
1 (a$)*j1+(1
1 ((m(k,j3)-t1)/s1)+yy:
1 (((88888888888888888888888888(((888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888 888888888888888888 88 888888888888888888 88 888888888888888888 88 888888888888888888 88 888888888888888888 88 888888888888888888 888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 ("H")-b(k-4
1 'TZXed by Andrew Barker
1 "y)Yname ",0
1 "which to replace ";a$:
1 "which for (X)(1to5)c ";i1:
1 "using variable x, e.g.:-":
1 "to hold x and f(x)":
1 "t)TRANSFORMS":
1 "start and finish x values,":
1 "s)STRAIGHT-LINE FIT":
1 "r)RESET NUMBER OF ITEMS":
1 "or any other to continue":
1 "o)Orient ",0
1 "next tape":
1 "m)MODIFY":
1 "it doesnt divide by zero etc.":
1 "fz")+(a$="sz")+5
1 "f)FUNCTIONS":
1 "d)DELETE":
1 "c)Clr ",13
1 "a= ";t4d:
1 "Your must type a formula":
1 "Your must also provide the":
1 "Y = a + b * X"
1 "Will this replace existing name(y/n)? ";a$:
1 "Which item ";i
1 "Which Dataset for (Y)(1to5)? ";i:
1 "Which Dataset (1 to 5) ";i6:
1 "Want to calculate a line(y/n)?";a$:
1 "Value? ";m(i,i2):
1 "Value? ";a$:
1 "Transform(eg LN(x))? ";a$:
1 "Start value ";i3:
1 "Source Dataset number (1
1 "Select item no. (0 to quit) ";i:
1 "Replace data for this set(y/n)? ";b$:
1 "Press * to terminate":
1 "Paper? ";t1:
1 "Paper colour? ";c7:
1 "Paper colour ";i1:
1 "Nubmer of items used ";nu:
1 "Now input ";nu;" items for this set"
1 "No of intervals ";i5:
1 "Next item ? (0 to quit) ";i:
1 "New name ? ";a$:
1 "More to do? ";a$:
1 "Make sure it is valid, e.g.":
1 "Load(l) or save(s)? ";a$:
1 "List items (y/n)? ";a$:
1 "Item ";i;" ";:
1 "Input data for:-":
1 "Input data for:-"
1 "Ink? ";t2:
1 "Ink colour? ";c8:
1 "Ink colour ";i1:
1 "Graph No? ";cg:
1 "Formula? ";a$:
1 "Fit Model is:-":
1 "End value ";i4:
1 "Destination Dataset number? ";i2:
1 "Dataset names are:-"
1 "Dataset name (max 9 chars) ";a$:
1 "Dataset for x ";i1
1 "Dataset for f(x) ";i2:
1 "Dataset Nom to hold calc. line (1to5)? ";i
1 "Coefficients are:-":
1 "Border? ";i9:
1 "Border colour ";i1:
1 "And 2 Dataset numbers":
1 "Already five datasets":
1 "Add new item (i),new Dataset (n), or quit (q)? ";a$
1 "(ENTER alone to keep old value)"